Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/angry/nikole.dir/00001_movie script.ls

Text File | 1999-03-01 | 640 b | 37 lines

global fileSep

on startMovie
  initMovie()
  repeat with i = 1 to 6
    if soundBusy(i) then
      sound stop i
    end if
  end repeat
end

on initMovie
  if the machineType = 256 then
    fileSep = "\"
  else
    fileSep = ":"
  end if
  set the keyDownScript to "keyCheck"
end

on keyCheck
  setVolume()
end

on setVolume
  inKey = the key
  if (inKey = "q") or (inKey = "Q") then
    go("quitArtRight", "intro")
  end if
  if (charToNum(inKey) >= charToNum("0")) and (charToNum(inKey) <= charToNum("9")) then
    newVol = integer(the key)
    if the soundLevel <> newVol then
      set the soundLevel to newVol
    end if
  end if
end